// Learn more about F# at http://fsharp.net
// See the 'F# Tutorial' project for more help.

open FSharp.Data
open System


 type Record = {voivoship : Option<int>;  district : Option<int>; community:Option<int>; rozd:Option<int>; name: Option<string>; addinf: Option<string> }

 type InputXml = XmlProvider<"Terc.xml">

[<EntryPoint>]
let main argv =

    // createRecord sluzy tylko do stworzenia pustego rekordu ktory pozniej bedziemy wypelniac, domyslnie wartosci to poprostu None
    let createRecord =
        {
            voivoship = None
            district = None
            community = None
            rozd = None
            name = None
            addinf = None
        }
    //addCol bierze record i columne i na bazie tego tworzy nowy record z nowa wartoscia na bazie tej kolumny
    let addCol name number string record =
        match name with
        | "WOJ" -> { record with voivoship = number }
        | "POW" -> { record with district = number }
        | "GMI" -> { record with community = number }
        | "RODZ" -> { record with rozd = number }
        | "NAZWA" -> { record with name = string }
        | "NAZDOD" ->  { record with addinf = string }
        | _ -> record


    let tercs = InputXml.GetSample()

    // bierze liste column i odpala rekurencje po tej kolekcji, head to 1 element, tail to reszta elementow
    let createRecordBasedOnRow cols =
        let rec iterateCols record (cols:List<InputXml.Col>) =
            match cols with
                | head::tail -> iterateCols (addCol head.Name head.Number head.String record) tail
                | [] -> record

        iterateCols createRecord cols

    let records =
        seq {
            for row in tercs.Rows do
                yield (createRecordBasedOnRow (row.Cols |> Array.toList))
            }

    for r in records do
        match r.voivoship with
        | None -> ()
        | Some s -> printfn "%i" s

    Console.Read();
    0 // return an integer exit code